Module FinishMessages
    Public Sub Win(ByVal correct As Integer, ByVal bad As Integer, ByVal s As String)
        Randomize()
        s = UCase(s)
        Dim r As New Random(Rnd() * 100)
        a = r.Next(1, 5)
        Dim ms As String = ""
        Select Case a
            Case 1
                ms = "Wow! That was one amazing game of Hang Man. You guessed the correct word to be:" & s & " after only " & bad & " wrong guesses!!"
            Case 2
                ms = "You show off! Give yourself a big pat on the back for completing this tough round of Hang Man" & Chr(13) & "because you guessed " & s & " after only " & bad & " wrong guesses!!"
            Case 3
                ms = "What a game!! How in the world did you guess the correct word to be " & s & " after only " & bad & " wrong guesses" & (Chr(13)) & "I guess it will forever remain a mystery!!"
            Case 4
                ms = "You blew my socks off! And I don't say that to just anyone, because:" & Chr(13) & "you guessed the correct word to be " & s & " after only " & bad & " wrong guesses. What an accomplishment!!!"


        End Select
        MsgBox(ms, MsgBoxStyle.Exclamation, "YOU WIN!!!!")
    End Sub
    Public Sub lose(ByVal correct As Integer, ByVal bad As Integer, ByVal s As String)
        Randomize()
        s = UCase(s)
        Dim r As New Random(Rnd() * 100)
        a = r.Next(1, 6)
        Dim ms As String = ""
        Select Case a
            Case 1
                ms = "Oh No!!! You Lost! After " & bad & " wrong guesses, you just didn't find the correct word to be:" & (Chr(13)) & s

            Case 2
                ms = "Ha ha! Too bad for you! After " & bad & " wrong guesses, you were obviously not able to guess the correct word to be:" & (Chr(13)) & s

            Case 3
                ms = "Ah, man! That word was pretty hard! It sure is a shame that you guessed " & bad & " wrong letters." & (Chr(13)) & "Maybe if you had another shot, you would have guessed it to be:" & (Chr(13)) & s

            Case 4
                ms = "Shoot! You gotta do better than that! Because after " & bad & " wrong guesses, YOU LOSE! Why didn't you guess the correct word to be:" & (Chr(13)) & s

            Case 5
                ms = "What a game! Too bad you LOST! Better luck next time!"
        End Select
        MsgBox(ms, MsgBoxStyle.Exclamation, "YOU LOSE!")

    End Sub
End Module
